home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / vol_300 / 323_01 / tess_def.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-08-04  |  8.5 KB  |  253 lines
  1. /*--------------------------------------------------------------------------*\
  2. | TESS-DEF.C                                                                 |
  3. \*--------------------------------------------------------------------------*/
  4.  
  5. /*
  6.   Beyond The Tesseract
  7.     - adventure world definition
  8. */
  9.  
  10. #include "adv-def.h"
  11. #include "tess-def.h"
  12.  
  13. /*--------------------------------------------------------------------------*\
  14. | Location                                                                   |
  15. \*--------------------------------------------------------------------------*/
  16.  
  17. room_type room [ MaxLocs ] =
  18. {
  19.   /*  0 */ { "in the adventure storage room" ,  0,0,0,0 },
  20.   /*  1 */ { "in a green house" ,  0,0,2,7 },
  21.   /*  2 */ { "in a researcher's office" ,  1,0,0,8 },
  22.   /*  3 */ { "on the contradicting premises of a deduction" ,  5,0,0,0 },
  23.   /*  4 */ { "in a mirrored hall" ,  0,11,9,10 },
  24.   /*  5 */ { "at the origin" ,  14,16,3,15 },
  25.   /*  6 */ { "in a spectral vortex" ,    0,0,19,0 },
  26.   /*  7 */ { "in a library" ,  0,1,8,0 },
  27.   /*  8 */ { "in a cryogenic lab" ,  7,2,0,0 },
  28.   /*  9 */ { "in a glass sphere" ,  4,0,0,0 },
  29.   /* 10 */ { "in a hall of mirrors" ,  12,4,0,0 },
  30.   /* 11 */ { "in a mirror hallway" ,  13,0,0,4 },
  31.   /* 12 */ { "in a chamber of crystal" ,  0,0,10,0 },
  32.   /* 13 */ { "in a transparent vault" ,  0,0,11,0 },
  33.   /* 14 */ { "at the infinite point" ,  0,0,5,0 },
  34.   /* 15 */ { "in a set of all sets that's not a member of itself",  0,5,0,0 },
  35.   /* 16 */ { "by a field of absolute certainty" ,  0,0,0,5 },
  36.   /* 17 */ { "in n-dimensional space" ,  0,0,0,16 },
  37.   /* 18 */ { "in an ocean of magnetic monopoles",  0,19,21,0 },
  38.   /* 19 */ { "in a sea of radio frequencies" ,  6,20,22,18 },
  39.   /* 20 */ { "in an ionic storm",  0,0,0,19 },
  40.   /* 21 */ { "in a scintillating shower of light",  18,22,0,0 },
  41.   /* 22 */ { "in a chromatic whirlpool of infrared to ultraviolet" ,  19,0,0,21 },
  42.   /* 23 */ { "in inner space" ,  0,24,26,0 },
  43.   /* 24 */ { "at the outer limits" ,  0,25,0,23 },
  44.   /* 25 */ { "in the twilight of thought" ,  0,0,28,24 },
  45.   /* 26 */ { "beyond the edge of forever" ,  23,27,0,0 },
  46.   /* 27 */ { "at the brink of time" ,  0,28,0,26 },
  47.   /* 28 */ { "in the shadow of tomorrow" ,  25,0,0,27 },
  48.   /* 29 */ { "in an alien atheneum" ,  30,0,0,0 },
  49.   /* 30 */ { "in the dimensia chamber" ,  0,0,29,0 },
  50.   /* 31 */ { "in point-land" ,  0,0,29,0 },
  51.   /* 32 */ { "in line-land",  0,0,29,0 },
  52.   /* 33 */ { "in plane-land",  0,0,29,0 },
  53.   /* 34 */ { "in sphere-land",  0,0,29,0 },
  54.   /* 35 */ { "in an abyss of non-existence.  Shadows spellout 'Reasons and Answers'",  0,0,0,0 },
  55. };
  56.  
  57.  
  58. /*----------------------------*/
  59. /* objects
  60. */
  61. object_type obj [ MaxObjs ] =
  62. {
  63.   /*  0 */ "", 0,0, 0,
  64.   /*  1 */ "north" , 0, 0, 0,
  65.   /*  2 */ "east" , 0, 0, 0,
  66.   /*  3 */ "south" , 0, 0, 0,
  67.   /*  4 */ "west" , 0, 0, 0,
  68.   /*  5 */ "inventory" , 0, 0, 0,
  69.   /*  6 */ "a large circular reflector" , 1, 4, 0,
  70.   /*  7 */ "a CRT" , 2, 4, 0,
  71.   /*  8 */ "a hyper-plant-being" , 9, 6, 0,
  72.   /*  9 */ "a group" , 14, 6, 0,
  73.   /* 10 */ "a hole in the argument" , 3, 4, 0,
  74.   /* 11 */ "a dimension projector" , 30, 4, 0,
  75.   /* 12 */ "some buttons" , -9, 4, 0,
  76.   /* 13 */ "zero" , -7, 0, 0,
  77.   /* 14 */ "one" , -7, 0, 0,
  78.   /* 15 */ "two" , -7, 0, 0,
  79.   /* 16 */ "three" , -7, 0, 0,
  80.   /* 17 */ "four" , -7, 0, 0,
  81.   /* 18 */ "fractal" , -9, 0, 0,
  82.   /* 19 */ "chaos" , 31, 4, 0,
  83.   /* 20 */ "some Fatou dust" , 32, 4, 0,
  84.   /* 21 */ "a von Koch snowflake" , 33, 4, 0,
  85.   /* 22 */ "Mount Mandelbrot" , 34, 4, 0,
  86.   /* 23 */ "a tombstone" , 34, 4, 0,
  87.   /* 24 */ "a stack" , -1, 5, 0,
  88.   /* 25 */ "an audio transmutator" , 11, 5, 0,
  89.   /* 26 */ "a book" , 7, 5, 0,
  90.   /* 27 */ "some Z-pills" , 8, 1, 0,
  91.   /* 28 */ "a pool of bubbling fluid" , 8, 2, 0,
  92.   /* 29 */ "a Klein bottle" , 0, 5, 0,
  93.   /* 30 */ "a prism" , 12, 5, 0,
  94.   /* 31 */ "a _y_ing apparatus" , 13, 5, 0,
  95.   /* 32 */ "an infinite improbability" , 15, 7, 0,
  96.   /* 33 */ "a mobius strip" , 5, 1, 0,
  97.   /* 34 */ "a Riemann zeta integral" , 17, 5, 0,
  98.   /* 35 */ "a hexahedron" , 18, 5, 0,
  99.   /* 36 */ "a ceramic coil" , 19, 5, 0,
  100.   /* 37 */ "plasma" , 20, 3, 0,
  101.   /* 38 */ "a 4-D solid" , 0, 1, 0,
  102.   /* 39 */ "some 4-D liquid" , 0, 3, 0,
  103.   /* 40 */ "a singularity" , 0, 5, 0,
  104.   /* 41 */ "an image disk" , 29, 5, 0,
  105.   /* 42 */ "a supposition" , 24, 5, 0,
  106.   /* 43 */ "an hypothesis" , 28, 5, 0,
  107.   /* 44 */ "a lemma" , 0, 5, 0,
  108.   /* 45 */ "a theorem" , 0, 5, 0,
  109.   /* 46 */ "an axiom" , 27, 5, 0,
  110.   /* 47 */ "a postulate" , 23, 5, 0,
  111.   /* 48 */ "a meditating mathematician" , 26, 4, 0,
  112.   /* 49 */ "a crystal tetrahedron", 0, 5, 0,
  113.   /* 50 */ "a non-differentiable function", 14, 5, 0,
  114.   /* 51 */ "an idea", 0, 5, 0,
  115.   /* 52 */ "a contradiction" , 0, 5, 0,
  116.   /* 53 */ "a warranty" , 29, 5, 0
  117. };
  118.  
  119. /*----------------------------*/
  120. /* vocabulary
  121. */
  122. vocab_type v_noun [] =          /* start w/blank string, end w/null string */
  123. {
  124.   "    " , 0,
  125.   "n   " , 1 ,  "nort" , 1 ,
  126.   "e   " , 2 ,  "east" , 2 ,
  127.   "s   " , 3 ,  "sout" , 3 ,
  128.   "w   " , 4 ,  "west" , 4 ,
  129.   "i   " , 5 ,  "inve" , 5 ,  "inv " , 5 ,  "all ", 5 ,
  130.   "refl" , 6 ,  "mirr" , 6 ,
  131.   "crt " , 7 ,  "scre" , 7 ,  "tube" , 7 ,
  132.   "plan" , 8 ,  "bein" , 8 ,  "alie" , 8 ,
  133.   "grou" , 9 ,
  134.   "hole" , 10 ,
  135.   "proj" , 11 ,
  136.   "butt" , 12 ,
  137.   "zero" , 13 ,  "0   " , 13 ,
  138.   "one " , 14 ,  "1   " , 14 ,
  139.   "two " , 15 ,  "2   " , 15 ,
  140.   "thre" , 16 ,  "3   " , 16 ,
  141.   "four" , 17 ,  "4   " , 17 ,
  142.   "frac" , 18 ,
  143.   "chao" , 19 ,
  144.   "dust" , 20 ,  "fato" , 20 ,
  145.   "snow" , 21 ,  "flak" , 21 ,  "koch" , 21 ,
  146.   "moun" , 22 ,  "mt  " , 22 ,  "mand" , 22 ,
  147.   "tomb" , 23 ,  "epit" , 23 ,
  148.   "stac" , 24 ,  "key " , 24 ,
  149.   "audi" , 25 ,  "tran" , 25 ,  "earp" , 25 ,
  150.   "book" , 26 ,  "adve" , 26 ,
  151.   "pill" , 27 ,  "z-pi" , 27 ,  "z   " , 27 ,
  152.   "pool" , 28 ,  "flui" , 28 ,
  153.   "klei" , 29 ,  "bott" , 29 ,
  154.   "pris" , 30 ,
  155.   "_y_ " , 31 ,  "appa" , 31 ,  "y   " , 31 ,
  156.   "impr" , 32 ,  "hear" , 32 ,  "gold" , 32 ,
  157.   "mobi" , 33 ,  "stri" , 33 ,  "moeb" , 33 ,
  158.   "riem" , 34 ,  "zeta" , 34 ,  "inte" , 34 ,
  159.   "hexa" , 35 ,  "cube" , 35 ,  "die " , 35 ,  "dice" , 35 ,
  160.   "coil" , 36 ,  "cera" , 36 ,  "loop" , 36 ,
  161.   "plas" , 37 ,
  162.   "soli" , 38 ,  "tess" , 38 ,
  163.   "liqu" , 39 ,
  164.   "sing" , 40 ,  "band" , 40 ,  "filt" , 40 ,
  165.   "disk" , 41 ,  "disc" , 41 ,
  166.   "supp" , 42 ,
  167.   "hypo" , 43 ,
  168.   "lemm" , 44 ,
  169.   "theo" , 45 ,
  170.   "axio" , 46 ,
  171.   "post" , 47 ,  "prof" , 47 ,
  172.   "math" , 48 ,
  173.   "crys" , 49 ,  "tetr" , 49 ,  "pyra" , 49,
  174.   "func" , 50 ,
  175.   "idea" , 51 ,
  176.   "cont" , 52 ,
  177.   "warr" , 53 ,  "guar" , 53 ,
  178.   "",0
  179. };
  180.  
  181. vocab_type v_verb[] =
  182. {
  183.   "    " , 0 ,
  184.   "nort" , 1 ,  "n   " ,  1 ,
  185.   "east" , 2 ,  "e   " ,  2 ,
  186.   "sout" , 3 ,  "s   " ,  3 ,
  187.   "west" , 4 ,  "w   " ,  4 ,
  188.   "inve" , 5 ,  "i   " ,  5 ,
  189.   "go  " , 6 ,
  190.   "get " , 7 ,  "take" ,  7 ,  "grab" , 7 ,  "g   " , 7 ,
  191.   "drop" , 8 ,  "leav" ,  8 ,
  192.   "thro" , 9 ,  "toss" ,  9 ,
  193.   "brea" , 10 ,  "hit " , 10 ,  "kill" , 10 ,  "figh" , 10 ,  "kick" , 10 ,
  194.                  "atta" , 10 ,
  195.   "look" , 11 ,  "exam" , 11 ,  "l   " , 11 ,
  196.   "read" , 12 ,
  197.   "use " , 13 ,  "util" , 13 ,  "appl" , 13 ,
  198.   "touc" , 14 ,  "feel" , 14 ,
  199.   "swin" , 15 ,  "wave" , 15 ,  "shak" , 15 ,
  200.   "rub " , 16 ,  "pres" , 17 ,  "push" , 17 ,
  201.   "pop " , 18 ,
  202.   "spin" , 19 ,  "turn" , 19 ,  "rota" , 19 ,  "twis" , 19 ,  "flip" , 19 ,
  203.   "roll" , 20 ,
  204.   "wear" , 21 ,
  205.   "eat " , 22 ,  "swal" , 22 ,
  206.   "tast" , 23 ,
  207.   "drin" , 24 ,
  208.   "remo" , 25 ,
  209.   "wate" , 26 ,  "wet " , 26 ,  "wash" , 26 ,  "hydr" , 26 ,
  210.   "fill" , 27 ,
  211.   "pour" , 28 ,  "empt" , 28 ,
  212.   "free" , 29 ,  "cool" , 29 ,
  213.   "melt" , 30 ,
  214.   "play" , 31 ,  "star" , 31 ,
  215.   "inse" , 32 ,  "put " , 32 ,
  216.   "_y_ " , 33 ,  "y   " , 33 ,
  217.   "prov" , 34 ,  "veri" , 34 ,  "deve" , 34 ,
  218.   "fix " , 35 ,  "repa" , 35 ,
  219.   "smel" , 36 ,
  220.   "clos" , 37 ,
  221.   "open" , 38 ,
  222.   "stop" , 39 ,
  223.   "say " , 40 ,  "spea" , 40 ,
  224.   "quit" , 41 ,
  225.   "help" , 42 ,
  226.   "list" , 43 ,  "hear" , 43 ,
  227.   "save" , 44 ,
  228.   "load" , 45 ,
  229.   "scor" , 46 ,
  230.   "slee" , 47 ,  "drea" , 47 ,
  231.   "wake" , 48 ,
  232.   "give" , 49 ,
  233.   "scan" , 50 ,  "sc  " , 50 ,
  234.   "eval" , 51 ,  "solv" , 51 ,  "diff" , 51 ,
  235.   "thin" , 52 ,  "pond" , 52 ,  "medi" , 52 ,
  236.   "burn" , 53 ,  "igni" , 53 ,  "heat" , 53 ,
  237.   "evap" , 54 ,  "vapo" , 54 ,
  238.   "clim" , 55 ,
  239.   "cut " , 56 ,  "slic" , 56 ,  "stab" , 56 ,
  240.   "join" , 57 ,
  241.   "sing" , 58 ,
  242.   "" , 0
  243. };
  244.  
  245. int
  246.   num_verbs = sizeof( v_verb ) / sizeof( vocab_type ),
  247.   num_nouns = sizeof( v_noun ) / sizeof( vocab_type ),
  248.  
  249.   NumLocs = MaxLocs,
  250.   NumObjs = MaxObjs,
  251.   NumDirs = 4;        /* use N E S W; Up Down not used */
  252.  
  253.